home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / font grabber (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  526 b   |  18 lines
  1. 90 REM" 19-JAN-89
  2. 100 [153]"LIST          ********************
  3. 110 PRINT"          *   FONT GRABBER   *
  4. 120 [153]"          * FOR  OPEN SYSTEM *
  5. 130 PRINT"          ********************[154]
  6. 140 [139] [194](648)[178]204 [167] [137] 150
  7. 142 [153]" 'NORSK' IS USED TO CONFIGURE
  8. 144 PRINT"  CBM 64 FOR CHARACTER IN RAM
  9. 146 _X"NORSK
  10. 150 INPUT"CHARACTER-SET";F$
  11. 160 IF F$="" THEN PRINT"[145][145][145]":GOTO150
  12. 170 PRINT"[147]OPEN SYSTEM PRESENTS YOUR NEW "
  13. 180 PRINT"CHARACTER-SET [ \ ]";CHR$(14)
  14. 220 ADR=232*256:REM" UNDER KERNAL
  15. 230 [159]1,8,0,F$:[151]185,0
  16. 240 [151]780,0:[151]782,ADR[173]256:[151]781,ADR[171][194](782)[172]256:[158]65493
  17. 250 [160]1:_E
  18.